home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Controls / Visual Basic Controls.iso / vbcontrol / em7sui_1 / em7sui~1.exe / OrbitalTest.wr_ / OrbitalTest.wr
Text File  |  1998-09-18  |  1KB  |  72 lines
  1. #VRML V2.0 utf8
  2.  
  3. # Copyright Electrohouse 1998
  4.  
  5. # This file may not be copied, modified or distributed
  6. # in any way which violates the ProtoPak licensing 
  7. # agreement established by Electrohouse.  
  8.  
  9. EXTERNPROTO em7_Orbital [
  10.     exposedField MFNode children
  11.     field SFFloat radius
  12.     exposedField SFRotation orbitalOrientation
  13.     exposedField SFBool orbiting
  14.     exposedField SFTime cycleInterval
  15.     exposedField SFVec3f center
  16.     eventIn SFFloat set_radius
  17. ] "..\VR_NAV.wrl#em7_Orbital"
  18.  
  19. NavigationInfo {
  20.     headlight FALSE
  21. }
  22.  
  23. Shape {
  24.     appearance Appearance {
  25.         material Material {
  26.             diffuseColor 0.3 0.8 0.5
  27.             shininess 0.9
  28.         }
  29.     }
  30.     geometry Sphere { radius 1 }
  31. }
  32.  
  33. em7_Orbital {
  34.     radius 2
  35.     orbiting TRUE
  36.     orbitalOrientation 0 0 1 0.78
  37.     cycleInterval 5
  38.     children [
  39.         Shape {
  40.             appearance Appearance {
  41.                 material Material {
  42.                     emissiveColor 0.3 0.8 0.5
  43.         
  44.                 }
  45.             }
  46.             geometry Box { size 0.3 0.3 0.3 }
  47.         }
  48.         PointLight {}
  49.     ]
  50. }
  51.  
  52. em7_Orbital {
  53.     radius 3
  54.     orbiting TRUE
  55.     orbitalOrientation 0 0 1 -0.78
  56.     cycleInterval 5
  57.     children [
  58.         Shape {
  59.             appearance Appearance {
  60.                 material Material {
  61.                     emissiveColor 0.3 0.8 0.5
  62.         
  63.                 }
  64.             }
  65.             geometry Box { size 0.3 0.3 0.3 }
  66.         }
  67.         PointLight {}
  68.     ]
  69. }
  70.  
  71.  
  72.